COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	REQUIRE "OUTPUT[PNT,HE]" LOAD_MODULE
C00005 ENDMK
C⊗;
REQUIRE "OUTPUT[PNT,HE]" LOAD_MODULE;

EXTERNAL SIMPLE STRING PROCEDURE CVGX(REAL R);
EXTERNAL SIMPLE STRING PROCEDURE STR_RT(REAL ARRAY XF;INTEGER NUM(1));  
EXTERNAL SIMPLE STRING PROCEDURE STR_VT(REAL X,Y,Z;INTEGER NUM(1));
EXTERNAL SIMPLE STRING PROCEDURE STR_TR(REAL ARRAY XF;INTEGER ROT(1),VECT(1));


IFC #DISPL THENC 
REQUIRE "DISPLY[PNT,HE]" LOAD_MODULE;
EXTERNAL PROCEDURE DPYOUT(INTEGER POG);
EXTERNAL SIMPLE PROCEDURE INIDPY;
EXTERNAL SIMPLE PROCEDURE DPYDRAW;
EXTERNAL SIMPLE PROCEDURE DPYFREE;
EXTERNAL SIMPLE PROCEDURE OUTDPY;
EXTERNAL STRING PROCEDURE DPY_STRING(INTEGER TYPE);
EXTERNAL STRING PROCEDURE TREE_STRING;
EXTERNAL RECURSIVE STRING PROCEDURE FRTREE(RPTR(FRAME) ND;INTEGER DEPTH);
EXTERNAL INTEGER $NCHAR;				! # of characters for frame tree;
ENDC

IFC #OUTPT THENC
REQUIRE "INPOUT[PNT,HE]" LOAD_MODULE;
EXTERNAL PROCEDURE FCLOSE;				! closes any open file;
EXTERNAL PROCEDURE AL_CLOSE(STRING FILE );
EXTERNAL PROCEDURE WRITECODE(STRING FILE;RPTR(FRAME)ROOT);
EXTERNAL PROCEDURE SAVECODE(STRING FILE;RPTR(FRAME)ROOT);		
EXTERNAL PROCEDURE FSAVE;				! saves all open files;
EXTERNAL PROCEDURE TTYSAVE;
EXTERNAL STRING PROCEDURE FILE_STRING;
EXTERNAL INTEGER PROCEDURE ISFILE(STRING FILE);
ENDC